       IDENTIFICATION DIVISION.
       PROGRAM-ID. CrearArchivoAsignaciones.
       AUTHOR. Grupo 5. 2do cuatrimestre 2011.

       ENVIRONMENT DIVISION.
         INPUT-OUTPUT SECTION.
           FILE-CONTROL.
             SELECT ASIG-ARCH ASSIGN TO "ASIGNACIONES.IDX"
                 ORGANIZATION IS INDEXED
                 ACCESS MODE IS SEQUENTIAL
                 RECORD KEY IS ASIG-CLAVE
                 FILE STATUS IS ASIG-STATUS.

       DATA DIVISION.
         FILE SECTION.
           COPY "Asignaciones-FD.cbl".

         WORKING-STORAGE SECTION.
           01 ASIG-STATUS               PIC X(02).

       PROCEDURE DIVISION.
         OPEN OUTPUT ASIG-ARCH
         CLOSE ASIG-ARCH

         STOP RUN
         .
